Critical Information

THIS IS A MOCKUP VERSION PLEASE DO NOT CITE

Critical Information Skills measure the ability to evaluate online information: checking whether information is true, assessing website reliability, and understanding the purpose of online content (to inform, influence, entertain, or sell).

Critical Information Skills

ADD TEXT BEFORE TABSET

Critical Information Knowledge

The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.

Critical Information Performance

ADD TEXT BEFORE TABSET

--- title: "{{< iconify ph detective-fill >}} Critical Information" format: html --- ```{r} #| include: false library(dashboardr) ``` **THIS IS A MOCKUP VERSION PLEASE DO NOT CITE** **Critical Information Skills** measure the ability to evaluate online information: checking whether information is true, assessing website reliability, and understanding the purpose of online content (to inform, influence, entertain, or sell). ```{r setup} #| echo: false #| warning: false #| message: false #| error: false #| results: 'hide' # Load required libraries library(dashboardr) library(dplyr) library(highcharter) # Global chunk options knitr::opts_chunk$set( echo = FALSE, warning = FALSE, message = FALSE, error = FALSE, fig.width = 12, fig.height = 8, dpi = 300 ) # Load data from dataset_4014obs.rds data <- readRDS('dataset_4014obs.rds') # Data summary cat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n') # Create filtered datasets # Each filter is applied once and reused across visualizations data_filtered_984a0efe <- data %>% dplyr::filter(wave == 1) data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2) ``` ## {{< iconify ph lightning-fill >}} Critical Information Skills ADD TEXT BEFORE TABSET ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r cis-wave1-overall-2} # Critical Information Skills result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(SInfo5, SInfo6, SInfo7), title = "Critical Information Skills", questions = c("SInfo5", "SInfo6", "SInfo7"), question_labels = c("I know how I can check if the information I find on the internet is true.", "I know how I can check if a website is reliable.", "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell)."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r cis-wave1-age-item1-2} # I know how I can check if the information I find on the internet is true. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SInfo5), title = "I know how I can check if the information I find on the internet is true.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SInfo5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r cis-wave1-age-item2-2} # I know how I can check if a website is reliable. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SInfo6), title = "I know how I can check if a website is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SInfo6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r cis-wave1-age-item3-2} # I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell). result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SInfo7), title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SInfo7" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r cis-wave1-gender-item1-2} # I know how I can check if the information I find on the internet is true. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SInfo5), title = "I know how I can check if the information I find on the internet is true.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SInfo5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r cis-wave1-gender-item2-2} # I know how I can check if a website is reliable. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SInfo6), title = "I know how I can check if a website is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SInfo6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r cis-wave1-gender-item3-2} # I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell). result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SInfo7), title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SInfo7" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r cis-wave1-edu-item1-2} # I know how I can check if the information I find on the internet is true. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SInfo5), title = "I know how I can check if the information I find on the internet is true.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SInfo5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r cis-wave1-edu-item2-2} # I know how I can check if a website is reliable. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SInfo6), title = "I know how I can check if a website is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SInfo6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r cis-wave1-edu-item3-2} # I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell). result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SInfo7), title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SInfo7" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r cis-wave2-overall-2} # Critical Information Skills result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(SInfo5, SInfo6, SInfo7), title = "Critical Information Skills", questions = c("SInfo5", "SInfo6", "SInfo7"), question_labels = c("I know how I can check if the information I find on the internet is true.", "I know how I can check if a website is reliable.", "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell)."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r cis-wave2-age-item1-2} # I know how I can check if the information I find on the internet is true. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SInfo5), title = "I know how I can check if the information I find on the internet is true.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SInfo5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r cis-wave2-age-item2-2} # I know how I can check if a website is reliable. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SInfo6), title = "I know how I can check if a website is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SInfo6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r cis-wave2-age-item3-2} # I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell). result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SInfo7), title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SInfo7" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r cis-wave2-gender-item1-2} # I know how I can check if the information I find on the internet is true. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SInfo5), title = "I know how I can check if the information I find on the internet is true.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SInfo5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r cis-wave2-gender-item2-2} # I know how I can check if a website is reliable. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SInfo6), title = "I know how I can check if a website is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SInfo6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r cis-wave2-gender-item3-2} # I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell). result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SInfo7), title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SInfo7" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r cis-wave2-edu-item1-2} # I know how I can check if the information I find on the internet is true. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SInfo5), title = "I know how I can check if the information I find on the internet is true.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SInfo5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r cis-wave2-edu-item2-2} # I know how I can check if a website is reliable. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SInfo6), title = "I know how I can check if a website is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SInfo6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r cis-wave2-edu-item3-2} # I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell). result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SInfo7), title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SInfo7" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r cis-overtime-overall-item1-2} # I know how I can check if the information I find on the internet is true. result <- create_timeline( data = data, title = "I know how I can check if the information I find on the internet is true.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SInfo5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r cis-overtime-overall-item2-2} # I know how I can check if a website is reliable. result <- create_timeline( data = data, title = "I know how I can check if a website is reliable.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SInfo6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r cis-overtime-overall-item3-2} # I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell). result <- create_timeline( data = data, title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SInfo7" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r cis-overtime-age-item1-2} # I know how I can check if the information I find on the internet is true. result <- create_timeline( data = data, title = "I know how I can check if the information I find on the internet is true.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SInfo5", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r cis-overtime-age-item2-2} # I know how I can check if a website is reliable. result <- create_timeline( data = data, title = "I know how I can check if a website is reliable.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SInfo6", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r cis-overtime-age-item3-2} # I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell). result <- create_timeline( data = data, title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SInfo7", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r cis-overtime-gender-item1-2} # I know how I can check if the information I find on the internet is true. result <- create_timeline( data = data, title = "I know how I can check if the information I find on the internet is true.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SInfo5", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r cis-overtime-gender-item2-2} # I know how I can check if a website is reliable. result <- create_timeline( data = data, title = "I know how I can check if a website is reliable.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SInfo6", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r cis-overtime-gender-item3-2} # I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell). result <- create_timeline( data = data, title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SInfo7", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r cis-overtime-edu-item1-2} # I know how I can check if the information I find on the internet is true. result <- create_timeline( data = data, title = "I know how I can check if the information I find on the internet is true.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SInfo5", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r cis-overtime-edu-item2-2} # I know how I can check if a website is reliable. result <- create_timeline( data = data, title = "I know how I can check if a website is reliable.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SInfo6", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r cis-overtime-edu-item3-2} # I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell). result <- create_timeline( data = data, title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SInfo7", group_var = "Education" ) result ``` ::: ::: ::: ## {{< iconify ph book-open-fill >}} Critical Information Knowledge **Critical Information Skills** measure the ability to evaluate online information: checking whether information is true, assessing website reliability, and understanding the purpose of online content (to inform, influence, entertain, or sell). ```{r, echo=FALSE, message=FALSE, warning=FALSE} create_blockquote("The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.", preset = "question") ``` ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r critinfo-wave1-overall-2} # Some people make money by spreading fake news on the internet. result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(KInfo3RC), title = "Some people make money by spreading fake news on the internet.", questions = "KInfo3RC", question_labels = "Some people make money by spreading fake news on the internet.", stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r critinfo-wave1-age-item1-2} # Some people make money by spreading fake news on the internet. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KInfo3RC), title = "Some people make money by spreading fake news on the internet.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KInfo3RC" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r critinfo-wave1-gender-item1-2} # Some people make money by spreading fake news on the internet. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KInfo3RC), title = "Some people make money by spreading fake news on the internet.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KInfo3RC" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r critinfo-wave1-edu-item1-2} # Some people make money by spreading fake news on the internet. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KInfo3RC), title = "Some people make money by spreading fake news on the internet.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KInfo3RC" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r critinfo-wave2-overall-2} # Some people make money by spreading fake news on the internet. result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(KInfo3RC), title = "Some people make money by spreading fake news on the internet.", questions = "KInfo3RC", question_labels = "Some people make money by spreading fake news on the internet.", stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r critinfo-wave2-age-item1-2} # Some people make money by spreading fake news on the internet. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KInfo3RC), title = "Some people make money by spreading fake news on the internet.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KInfo3RC" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r critinfo-wave2-gender-item1-2} # Some people make money by spreading fake news on the internet. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KInfo3RC), title = "Some people make money by spreading fake news on the internet.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KInfo3RC" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r critinfo-wave2-edu-item1-2} # Some people make money by spreading fake news on the internet. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KInfo3RC), title = "Some people make money by spreading fake news on the internet.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KInfo3RC" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r critinfo-overtime-overall-item1-2} # Some people make money by spreading fake news on the internet. result <- create_timeline( data = data, title = "Some people make money by spreading fake news on the internet.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KInfo3RC" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r critinfo-overtime-age-item1-2} # Some people make money by spreading fake news on the internet. result <- create_timeline( data = data, title = "Some people make money by spreading fake news on the internet.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KInfo3RC", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r critinfo-overtime-gender-item1-2} # Some people make money by spreading fake news on the internet. result <- create_timeline( data = data, title = "Some people make money by spreading fake news on the internet.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KInfo3RC", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r critinfo-overtime-edu-item1-2} # Some people make money by spreading fake news on the internet. result <- create_timeline( data = data, title = "Some people make money by spreading fake news on the internet.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KInfo3RC", group_var = "Education" ) result ``` ::: ::: ::: ## {{< iconify ph clipboard-text >}} Critical Information Performance ADD TEXT BEFORE TABSET ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-cis-wave1-overall-2} # result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(PCIS1R, PCIS2R, PCIS3R), title = "", questions = c("PCIS1R", "PCIS2R", "PCIS3R"), question_labels = c("Classify a social media post (task 1)", "Classify a social media post (task 2)", "What to check for fake news"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-cis-wave1-age-item1-2} # Classify a social media post (task 1) result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PCIS1R), title = "Classify a social media post (task 1)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PCIS1R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-cis-wave1-age-item2-2} # Classify a social media post (task 2) result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PCIS2R), title = "Classify a social media post (task 2)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PCIS2R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-cis-wave1-age-item3-2} # What to check for fake news result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PCIS3R), title = "What to check for fake news", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PCIS3R" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-cis-wave1-gender-item1-2} # Classify a social media post (task 1) result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PCIS1R), title = "Classify a social media post (task 1)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PCIS1R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-cis-wave1-gender-item2-2} # Classify a social media post (task 2) result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PCIS2R), title = "Classify a social media post (task 2)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PCIS2R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-cis-wave1-gender-item3-2} # What to check for fake news result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PCIS3R), title = "What to check for fake news", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PCIS3R" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-cis-wave1-edu-item1-2} # Classify a social media post (task 1) result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PCIS1R), title = "Classify a social media post (task 1)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PCIS1R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-cis-wave1-edu-item2-2} # Classify a social media post (task 2) result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PCIS2R), title = "Classify a social media post (task 2)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PCIS2R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-cis-wave1-edu-item3-2} # What to check for fake news result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PCIS3R), title = "What to check for fake news", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PCIS3R" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-cis-wave2-overall-2} # result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(PCIS1R, PCIS2R, PCIS3R), title = "", questions = c("PCIS1R", "PCIS2R", "PCIS3R"), question_labels = c("Classify a social media post (task 1)", "Classify a social media post (task 2)", "What to check for fake news"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-cis-wave2-age-item1-2} # Classify a social media post (task 1) result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PCIS1R), title = "Classify a social media post (task 1)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PCIS1R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-cis-wave2-age-item2-2} # Classify a social media post (task 2) result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PCIS2R), title = "Classify a social media post (task 2)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PCIS2R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-cis-wave2-age-item3-2} # What to check for fake news result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PCIS3R), title = "What to check for fake news", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PCIS3R" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-cis-wave2-gender-item1-2} # Classify a social media post (task 1) result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PCIS1R), title = "Classify a social media post (task 1)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PCIS1R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-cis-wave2-gender-item2-2} # Classify a social media post (task 2) result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PCIS2R), title = "Classify a social media post (task 2)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PCIS2R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-cis-wave2-gender-item3-2} # What to check for fake news result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PCIS3R), title = "What to check for fake news", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PCIS3R" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-cis-wave2-edu-item1-2} # Classify a social media post (task 1) result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PCIS1R), title = "Classify a social media post (task 1)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PCIS1R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-cis-wave2-edu-item2-2} # Classify a social media post (task 2) result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PCIS2R), title = "Classify a social media post (task 2)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PCIS2R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-cis-wave2-edu-item3-2} # What to check for fake news result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PCIS3R), title = "What to check for fake news", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PCIS3R" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-cis-overtime-overall-item1-2} # Classify a social media post (task 1) result <- create_timeline( data = data, title = "Classify a social media post (task 1)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PCIS1R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-cis-overtime-overall-item2-2} # Classify a social media post (task 2) result <- create_timeline( data = data, title = "Classify a social media post (task 2)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PCIS2R" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-cis-overtime-overall-item3-2} # What to check for fake news result <- create_timeline( data = data, title = "What to check for fake news", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PCIS3R" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-cis-overtime-age-item1-2} # Classify a social media post (task 1) result <- create_timeline( data = data, title = "Classify a social media post (task 1)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PCIS1R", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-cis-overtime-age-item2-2} # Classify a social media post (task 2) result <- create_timeline( data = data, title = "Classify a social media post (task 2)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PCIS2R", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-cis-overtime-age-item3-2} # What to check for fake news result <- create_timeline( data = data, title = "What to check for fake news", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PCIS3R", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-cis-overtime-gender-item1-2} # Classify a social media post (task 1) result <- create_timeline( data = data, title = "Classify a social media post (task 1)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PCIS1R", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-cis-overtime-gender-item2-2} # Classify a social media post (task 2) result <- create_timeline( data = data, title = "Classify a social media post (task 2)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PCIS2R", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-cis-overtime-gender-item3-2} # What to check for fake news result <- create_timeline( data = data, title = "What to check for fake news", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PCIS3R", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-cis-overtime-edu-item1-2} # Classify a social media post (task 1) result <- create_timeline( data = data, title = "Classify a social media post (task 1)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PCIS1R", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-cis-overtime-edu-item2-2} # Classify a social media post (task 2) result <- create_timeline( data = data, title = "Classify a social media post (task 2)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PCIS2R", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-cis-overtime-edu-item3-2} # What to check for fake news result <- create_timeline( data = data, title = "What to check for fake news", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PCIS3R", group_var = "Education" ) result ``` ::: ::: :::